home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Electronic Clipper 1996 November
/
Electronic Clipper 1996 November.iso
/
ideasrc
/
heart.dir
/
00016_Script_16
< prev
next >
Wrap
Text File
|
1996-10-11
|
2KB
|
61 lines
on startmovie
set the visible of sprite 48 to false
global slider, toolH, toolV, gallery
set slider = 0
set the locH of sprite 40 to toolH
set the locV of sprite 40 to toolV
set gallery = "slideshow"
end
on keyDown
if the key = 1 then set the soundLevel to (1)
if the key = 2 then set the soundLevel to (2)
if the key = 3 then set the soundLevel to (3)
if the key = 4 then set the soundLevel to (4)
if the key = 5 then set the soundLevel to (5)
if the key = 6 then set the soundLevel to (6)
if the key = 7 then set the soundLevel to (7)
end keydown
on stopmovie
global toolH, toolV
set toolH = the locH of sprite 40
set toolV = the locV of sprite 40
end
on pressit button, swap
puppetsound "clickdn"
puppetsprite button, true
repeat while the mousedown
set the castnum of sprite button to swap
updatestage
end repeat
puppetsprite button, false
puppetsound "clickup"
end
on tools
global slider
--go the frame
repeat with n = 41 to 48
puppetsprite n, true
end repeat
set the locV of sprite 41 to the locV of sprite 40 + 29
repeat with n = 42 to 46
set the locV of sprite n to the locV of sprite 40 + 36
end repeat
repeat with n = 47 to 48
set the locV of sprite n to the locV of sprite 40 + 13
end repeat
set the locH of sprite 41 to the locH of sprite 40 - 1
set the locH of sprite 42 to the locH of sprite 40 - 63
set the locH of sprite 43 to the locH of sprite 40 - 32
set the locH of sprite 44 to the locH of sprite 40 - 1
set the locH of sprite 45 to the locH of sprite 40 + 30
set the locH of sprite 46 to the locH of sprite 40 + 61
set the locH of sprite 47 to the locH of sprite 40 - 65
set the loch of sprite 48 to the locH of sprite 40 + 40 + slider
updatestage
end tools